home *** CD-ROM | disk | FTP | other *** search
- object MainForm: TMainForm
- Left = 205
- Top = 114
- Width = 479
- Height = 340
- Caption = 'MDI Application'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- FormStyle = fsMDIForm
- Menu = MainMenu1
- PixelsPerInch = 96
- Position = poDefault
- WindowMenu = Window1
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- TextHeight = 16
- object WPToolBar1: TWPToolBar
- Left = 0
- Top = 0
- Width = 471
- Height = 54
- Align = alTop
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- BevelInner = bvRaised
- BevelOuter = bvNone
- sel_ListBoxes = [SelFontName, SelFontSize, SelFontColor, SelBackgroundColor]
- sel_StatusIcons = [SelNormal, SelBold, SelItalic, SelUnder, SelHyperLink, SelStrikeOut, SelLeft, SelRight, SelBlock, SelCenter]
- sel_ActionIcons = [SelExit, SelNew, SelOpen, SelSave, SelClose, SelPrint, SelPrintSetup]
- sel_DatabaseIcons = []
- sel_EditIcons = [SelCopy, SelCut, SelPaste, SelSelAll, SelHideSel, SelFind, SelReplace, SelSpellCheck]
- FontSizeFrom = 8
- OnIconSelection = WPToolBar1IconSelection
- Hints.Strings = (
- 'WPI_Normal=Normal'
- 'WPI_Bold=Bold'
- 'WPI_Italic=Italic'
- 'WPI_Under=Under'
- 'WPI_Hyperlink=Hyperlink'
- 'WPI_StrikeOut=StrikeOut'
- 'WPI_Left=Left'
- 'WPI_Right=Right'
- 'WPI_Justified=Justified'
- 'WPI_Center=Center'
- 'WPI_Copy=Copy'
- 'WPI_Cut=Cut'
- 'WPI_Paste=Paste'
- 'WPI_SelAll=SelAll'
- 'WPI_HideSel=HideSel'
- 'WPI_Find=Find'
- 'WPI_Replace=Replace'
- 'WPI_Spell=Spell'
- 'WPI_Exit=Exit'
- 'WPI_New=New'
- 'WPI_Open=Open'
- 'WPI_Save=Save'
- 'WPI_Close=Close'
- 'WPI_Print=Print'
- 'WPI_PrintSetup=PrintSetup'
- 'WPI_Next=Next'
- 'WPI_Prev=Prev'
- 'WPI_Add=Add'
- 'WPI_Del=Del'
- 'WPI_Edit=Edit'
- 'WPI_Cancel=Cancel'
- 'WPI_ToStart=ToStart'
- 'WPI_ToEnd=ToEnd'
- 'WPI_Post=Post')
- object Preview: TButton
- Left = 355
- Top = 29
- Width = 49
- Height = 17
- Caption = 'Preview'
- TabOrder = 0
- OnClick = PreviewClick
- end
- end
- object WPAltStatusBar1: TWPAltStatusBar
- Top = 277
- Width = 471
- Height = 17
- ShowSizer = True
- ShowGauge = True
- UseGaugeForWP = True
- GaugeValue = 0
- GaugeWidth = 100
- Strings.Strings = (
- '300stStatus=stStatus'
- '300stFileName=stFileName'
- '100stTxtFmt=stTxtFmt')
- Align = alBottom
- end
- object MainMenu1: TMainMenu
- Left = 36
- Top = 196
- object File1: TMenuItem
- Caption = '&File'
- Hint = 'Dateibefehle'
- object FileNewItem: TMenuItem
- Caption = '&New'
- Hint = 'Neue Datei erzeugen'
- OnClick = FileNewItemClick
- end
- object FileOpenItem: TMenuItem
- Caption = '&Open'
- Hint = 'Existierende Datei �ffnen'
- OnClick = FileOpenItemClick
- end
- object FileCloseItem: TMenuItem
- Caption = '&Close'
- Hint = 'Aktuelle Datei schlie�en'
- OnClick = FileCloseItemClick
- end
- object FileSaveItem: TMenuItem
- Caption = '&Save'
- Hint = 'Aktuelle Datei speichern'
- OnClick = FileSaveItemClick
- end
- object FileSaveAsItem: TMenuItem
- Caption = 'Save &as ...'
- Hint = 'Aktuelle Datei speichern unter...'
- OnClick = FileSaveAsItemClick
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object FileExitItem: TMenuItem
- Caption = '&Exit'
- Hint = 'Anwendung beenden'
- OnClick = FileExitItemClick
- end
- end
- object Edit1: TMenuItem
- Caption = '&Edit'
- object CutItem: TMenuItem
- Caption = 'Cut'
- Hint = 'In die Zwischenablage verschieben'
- OnClick = CutItemClick
- end
- object CopyItem: TMenuItem
- Caption = '&Copy'
- Hint = 'In die Zwischenablage kopieren'
- OnClick = CopyItemClick
- end
- object PasteItem: TMenuItem
- Caption = '&Paste'
- Hint = 'Aus der der Zwischenablage einf�gen'
- OnClick = PasteItemClick
- end
- end
- object Window1: TMenuItem
- Caption = '&Window'
- Hint = 'Befehle zum Anordnen von Fenstern'
- object WindowCascadeItem: TMenuItem
- Caption = 'Cascade'
- Hint = 'Fenster �berlappend anordnen'
- OnClick = WindowCascadeItemClick
- end
- object WindowTileItem: TMenuItem
- Caption = 'Tile Vertical'
- Hint = 'Fenster nicht �berlappend anordnen'
- OnClick = WindowTileItemClick
- end
- object WindowArrangeItem: TMenuItem
- Caption = 'Arrange Icons'
- Hint = 'Fenstersymbole am unteren Rand des Hauptfensters anordnen'
- OnClick = WindowArrangeItemClick
- end
- object WindowMinimizeItem: TMenuItem
- Caption = 'Minimize all'
- Hint = 'Alle Fenster verkleinern'
- OnClick = WindowMinimizeItemClick
- end
- end
- object Help1: TMenuItem
- Caption = '&Help'
- Hint = 'Hilfethemen'
- object HelpAboutItem: TMenuItem
- Caption = '&Info'
- end
- end
- end
- object OpenDialog: TOpenDialog
- Filter = 'Alle Dateien (*.*)|*.*'
- Left = 4
- Top = 196
- end
- end
-